﻿Public Partial Class WebForm1
    Inherits System.Web.UI.Page
    Private objCustomer As Access

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        objCustomer = New Access()
        Dim sql As String = "select * from MapInfo"
        Dim ds As DataSet = objCustomer.GetDs(sql)

        For Each t As DataRow In ds.Tables(0).Rows
            Me.Label1.Text += t("X") + ","
        Next
    End Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
        ' Dim connString As String = ConfigurationManager.ConnectionStrings(Constant.ConnstringName).ConnectionString
        objCustomer = New Access()
        Dim sql As String = "INSERT INTO MapInfo (X,Y) VALUES ('" + Me.HiddenX.Value + "', '" + HiddenY.Value + "')"
        objCustomer.DoSql(sql)

    End Sub

    Function BE(ByVal x As String, ByVal y As String) As T01
        Dim t01 As New T01
        t01.X = x
        t01.Y = y

        Return t01
    End Function

    Protected Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click
        Me.Label1.Text = "fsafaffffffffffsf"
    End Sub

    'Protected Sub Button6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button6.Click
    '    Me.Label2.Text = "fsafasf"
    'End Sub
End Class